home *** CD-ROM | disk | FTP | other *** search
/ Meeting Pearls 4 / Meeting Pearls Vol. IV (1996)(GTI - Schatztruhe)[!].iso / Pearls / comm / Updates / IBrowse1.0-1.02-68000.lha / IBrowse1.0-1.02-68000 / Update-IBrowse < prev    next >
Text File  |  1996-09-24  |  3KB  |  105 lines
  1. ; $VER£ Install-IBrowse 1.0 (23.07.96)
  2.  
  3. (set @app-name "IBrowse")    ; Application name
  4.  
  5. (set #welcome "Welcome to the IBrowse 1.02 update patch.\n\nIBrowse is (c) 1995,1996 Omnipresence Intl.\nDistributed by Hisoft Systems.")
  6. (set #languages-prompt "Please select which languages of IBrowse you want to install")
  7. (set #destdir-prompt "Please select where you currently have IBrowse installed. No configuration files or cached pages will be overwritten.")
  8. (set #dir "This option requires you to choose a directory. Choose one that suits your needs.")
  9. (set #wrong-update "You are trying to update another version of IBrowse than this patch allows. This patch is designed to work on the IBrowse1.0 68000 installation.")
  10. (set #updating "Updating the main executable.")
  11. (set #update-error "There was a problem updating IBrowse. Please try again with more free memory. If you still have problems please contact technical support.")
  12. (set #exit-msg "\n\nIBrowse was successfully updated. Please reboot your computer before you run the new copy.")
  13.  
  14. (procedure setup
  15.   (copyfiles (source "PrePatch") (dest "t:") )
  16.   (copyfiles (source "RePatch") (dest "t:") )
  17.   (copyfiles (source "spatch") (dest "t:") ) )
  18.  
  19. (procedure cleanup
  20.   (delete "t:PrePatch")
  21.   (delete "t:RePatch")
  22.   (delete "t:IbSerialNum")
  23.   (delete "t:ibtemp")
  24.   (delete "t:ibtemp2")
  25.   (delete "t:spatch") )
  26.  
  27. (procedure patch
  28.   (set result (run (cat "t:PrePatch " (tackon ibdir "IBrowse") " t:ibtemp" ) ) )
  29.   (if (<> result 0)
  30.     (abort #update-error) )
  31.   (set result (run (cat "t:spatch -ot:ibtemp2 -pIBrowse.pch t:ibtemp" ) ) )
  32.   (delete "t:ibtemp")
  33.   (set result (run (cat "t:RePatch t:ibtemp2 " (tackon ibdir "IBrowse") ) ) )
  34.   (if (<> result 0)
  35.     (abort #update-error) )
  36.   (delete "t:ibtemp2") )
  37.  
  38. (procedure install
  39.   (set info-dir (tackon ibdir "info") )
  40.   (copyfiles (source "info") (dest info-dir) (all) )
  41.   (copyfiles (source "ReadMe.html") (dest ibdir) )
  42.  
  43.   (set image-dir (tackon ibdir "images") )
  44.   (copyfiles (source "images") (dest image-dir) (all) )
  45.  
  46.   (copyfiles (source "ftp.library" ) (dest ibdir) )
  47.   (copyfiles (source "gopher.library" ) (dest ibdir) )
  48.   (copyfiles (source "http.library" ) (dest ibdir) )
  49.   (copyfiles (source "mailto.library" ) (dest ibdir) )
  50.   (copyfiles (source "ibamitcp.library" ) (dest ibdir) )
  51.   (copyfiles (source "ibas225.library" ) (dest ibdir) )
  52.   (copyfiles (source "ibimagedecode.library" ) (dest ibdir) )
  53.   (delete (tackon ibdir "ibsupport.library") )
  54.  
  55.   (set mui-dir (tackon ibdir "mui") )
  56.   (copyfiles (source "mui" ) (dest mui-dir) (all) ) )
  57.  
  58. (message #welcome)
  59.  
  60. (set ibdir
  61.   (askdir
  62.     (prompt #destdir-prompt)
  63.     (help #destdir-help)
  64.     (default "Work:IBrowse") ) )
  65.  
  66. (complete 5)
  67.  
  68. (set ibrowse-file (tackon ibdir "IBrowse") )
  69. (if (not (exists ibrowse-file) )
  70.   ( ( (message #no-ib-installed)
  71.     (abort) ) ) )
  72.   
  73. (complete 10)
  74.  
  75. (if (<> (getsize (tackon ibdir "IBrowse") ) 268000 )
  76.   ( ( (cleanup)
  77.       (abort #wrong-update) ) ) )
  78.  
  79. (if (exists (tackon ibdir "ibimagedecode.library") )
  80.   ( ( (if (<> (getsize (tackon ibdir "ibimagedecode.library") ) 78720 )
  81.         ( ( (cleanup)
  82.           (abort #wrong-update) ) ) ) ) ) )
  83.  
  84. (setup)
  85.  
  86. (set @default-dest ibdir)
  87.  
  88. (complete 20)
  89.  
  90. (install)
  91.  
  92. (complete 60)
  93.  
  94. (working #updating)
  95.  
  96. (patch)
  97.  
  98. (complete 80)
  99.  
  100. (cleanup)
  101.  
  102. (complete 99)
  103.  
  104. (exit #exit-msg (quiet) )
  105.